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1.  Introduction 


This  user  manual  describes  a  ratio  forecasting  program  developed  at  IWR. 
Several  common  ratio  forecasting  methods  are  available  to  the  analyst  in  the 
program.  These  methods  and  their  appropriate  uses  are  described  in  section  2 
of  this  manual.  A  presentation  of  the  procedures  involved  in  running  the 
program  is  provided  in  section  3. 

The  development  of  this  program  proceeded  from  the  observation  that  many  Corps 
study  areas  are  too  small  to  have  forecasts  available  for  them.  Since  many 
plan  formulation  and  evaluation  tasks  require  forecasts  of  study  area 
variables  such  as  population,  income,  and  employment  the  Corps  analyst  often 
faces  a  dilemma  in  obtaining  or  generating  such  forecasts  for  small  study 
areas . 

The  ratio  methods  described  in  this  manual  and  available  in  the  program  offer 
a  means  to  generate  forecasts  of  socio-economic  variables  for  small  areas. 

The  methods  are  widely  used  to  generate  population  and  employment  forecasts 
(see  for  example,  Shyrock,  et  al  1972;  Hammond,  1973;  Greenberg,  et  al,  1978; 
U.S.  Bureau  of  the  Census,  1972).  It  should  be  noted  that  other  variables  of 
interest  to  Corps  planners  (e.g.  income,  price  levels,  etc.)  can  be  forecast 
using  the  ratio  methods  described  in  this  manual.  Essentially,  these  methods 
produce  forecasts  for  small  areas  by  allocating  an  independently  derived 
forecast  of  the  variable(s)  for  a  larger  area  (state,  SMSA)  among  smaller 
subcomponent  areas  on  the  basis  of  past  ratios  of  these  smaller  areas  to  the 
larger  area  for  the  variable  being  forecast. 


These  methods  can  thus  be  used  to  "step-down"  forecasts  for  larger  areas  to 
study  areas  using  a  definable  analytic  structure  and  framework.  Ratio 
techniques  are  premised  on  the  assumption  that  a  small  area  will  continue  to 
have  a  similar  relationship  to  a  larger  area.  The  methods,  thus,  are  wholly 
"top-down"  in  the  way  in  which  small  area  forcecasts  are  derived.  They  do  not 
take  into  account  plans,  expectations  and  develoments  in  the  small  area  which 
may  affect  the  historical  relationship  between  small  and  large  areas  combined 
in  the  ratio(s)  being  used  to  generate  forecasts.  Judgment,  on  the  part  of 
the  analyst,  is  thus  necessary  in  using  these  techniques  to  generate  forecasts 
just  as  it  is  necessary  in  adequately  using  any  other  forecasting  method. 

The  central  focuses  of  this  manual  are  on  the  description  of  the  ratio  methods 
and  on  providing  instruction  on  the  use  of  a  forecasting  program.  The  manual 
is  not  intended  to  address  the  issue  of  the  use  and  misuse  of  forecasts. 
Several  sources  provide  detailed  discussion  of  this  topic  (see  for  example, 
Armstrong,  1978;  Pittenger,  1978;  Robinson,  1982;  Delli  Priscoli,  1979;  Oak 
Ridge  Associated  Universities,  1977).  Nevertheless,  it  is  important  to 
emphasize  that  judgments  on  the  analysts'  part  are  important.  In  the  case  of 
ratio  methods  assumptions  are  important  in  reaching  decisions  about  the  change 
in  the  ratio  of  a  smaller  area  to  the  larger  area  —  is  the  recent  past  likely 
to  be  more  important  than  the  distant  past,  are  there  major  changes  occurring 
in  the  small  area  which  may  affect  the  past  trend?  These  and  other  issues 
must  be  addressed,  and  assumptions  shaping  the  small  area  forecast  clearly 
stated  in  the  projection. 
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Appendix  A  of  manual  describes  the  operation  of  the  program  on  the  Harris  500 
minicomputer.  The  listing  of  the  program  in  FORTRAN  IV  is  provided  in 
Appendix  B.  A  revision  of  this  progam  for  the  IBM  personnal  computer  is 
planned . 

2.  Ratio  Methods 


The  IWR  Program  offers  four  ratio  forecasting  methods:  basic  ratio,  average 
annual  ratio,  ratio  trend,  and  OBERs  shift  share.  These  methods  are  described 
in  greater  detail  below. 


2.1  Basic  Ratio.  This  method  uses  the  relationship  between  a  small  area  and 
a  larger  parent  area  at  one  point  in  time  to  generate  forecasts  for  the 
smaller  area.  This  relationship  is  expressed  as  the  ratio  of  the  small  area 
to  the  larger  area: 

(1)  rt  =  St/Pt 
where : 

S  =  small  area  population 
P  =  parent  area  population 
t  =  time 
r  =  ratio 

Generally,  the  ratio  is  computed  for  the  most  recent  time  period  for  which 
data  for  the  small  area  and  parent  area  are  available.  However,  more  distant 
data  can  be  employed,  if  the  analyst  judges  that  the  ratio  from  the  most 
recent  data  available  is  not  suitable. 
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Forecasts  for  the  small  area  are  computed  by  applying  the  ratio  obtained  in 


equation  (1)  to  a  forecast  of  the  parent  area: 


(2)  S 


t+j 


*  P 

t  r  t+j 


As  noted  previously  the  parent  area  forecast  is  externally  derived.  Ttiis 
forecast  is  obtained  from  other  forecasting  procedures  at  the  local  or 
national  level  (e.g.  state  or  local  planning  agencies,  OBERs). 


The  chief  advantage  of  the  basic  ratio  method  is  its  ease  of  use.  Only  one 
data  value  for  the  small  area  and  parent  area  is  needed  in  combination  witli 
the  pare  it  area  forecast  in  order  to  obtain  a  small  area  forecast.  The 
primary  potential  disadvantage  of  the  basic  ratio  method  in  comparison  with 
the  other  methods  described  in  this  manual,  however,  is  that  it  permits  no  use 
of  information  concerning  how  the  relationship  between  the  small  area  and 
parent  area  has  changed  over  time.  In  periods  of  rapid  change,  when 
fundamental  changes  may  be  occurring  in  the  small  area,  historical  patterns  of 
relationship  may  not  be  important.  However,  as  a  general  rule,  historical 
information  about  the  past  relationship  of  small  to  large  areas  can  aid  the 
analyst  in  making  judgments  about  the  future  of  the  small  area. 
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Kxampl 


Computation  for  population  St.  Clair  County,  Illinois  using  Basic 


Ratio  Method 


r  80  =  S  8.)/P  80 

S  =  St.  Clair  County,  1980  (265,469) 
P  80  =  Illinois,  1980  (11,418,461) 


S  90  "  r  80  *  P  90 

=  .02325  *  1 1 ,804,539 

=  274,456 

2.2  Average  Annual  Ratio.  The  concept  of  an  annual  average  rate  of  change  is 
frequently  used  by  Corps  economists  in  computing  benefits  and  costs.  In  the 
average  annual  ratio  method  for  deriving  small  area  forecasts,  information 
about  the  ratio  of  the  small  to  large  area  at  two  points  of  time  is  used  to 
create  an  annual  average  change  in  the  ratio.  In  this  way  a  greater  amount  of 
information  is  employed  in  the  forecasting  process.  The  average  annual  method 
used  in  the  IWR  program  has  been  derived  from  a  method  presented  in  White,  et 
al  1953.  The  process  is  presented  below: 

O)  y  -  Vt-n 

where : 

y  =  ratio  of  ratios 


5 


fj.  =  ratio  of  small  to  large  area  at  time  t 

rt_n  =  ratio  of  small  to  large  area  at  some  previous  time 

(4)  i  =  t-(t-n)  time  interval  between  data  points 

(5)  A  =  1  average  annual  rate  of  change  in  ratio  of  small 

'? 

y  -1  to  large  area 

(6)  r  t+j  =  rt*  (l+j(A))  ratio  extrapolated  j  years  into  future 

on  basis  of  annual  average  change 

(7)  S  t+.  =  r  t+j  *  P  t+j  forecast  for  small  area  at  t+j 

Example:  Computation  for  St,  Clair  County,  Illinois  using  average  annual 

ratio  method 

y  =  r80/r50 

r80  =  *02325 
r5Q  =  .02357 

=  .98642 

i  =  t-  (t-n) 

=  80-50 
=  30 


•  * 


A  =  I 

•9864230  -1 

=  (antilog  (log  .98642)/30)  -1 

=  -.000456  (average  annual  change  =  (-0.0456  percent) 

r60  =  r90  (1  +  10  (--000456)) 

=  .02325  (.999544) 

=  .02314 

S90  "  r90  *  P90 

=  .02314  *  1 1,804,539 

=273,204 

2.3.  Ratio  Difference  Method.  The  ratio  difference  method  inspects  the 
change  in  ratios  over  time  expressed  as  differences  in  ratios  and  projects  on 
the  basis  of  these  changes.  Thus,  like  the  average  annual  mi  ..hod,  this  method 
offers  the  advantage  of  incorporating  historical  information.  However,  where 
the  average  annual  change  method  assumes  a  continuous  slope  in  the  historical 
change  in  ratios,  the  ratio  difference  method  allows  the  use  of  information 
about  fluctuations  in  Che  ratios  over  tine.  The  ratio  difference  method 
present  oil  in  the  1VR  program  was  developed  on  the  basis  of  a  description  of 
this  technique  in  Pickard  (19Hn). 

The  method  allows  past  ritios  l  >  be  weighted  according  to  the  judgment  of  the 
analyst.  In  the  IWR  program  the  user  has  two  choices  for  weighing  past 
ratios.  In  the  first  option  the  most  recent  ratios  are  weighted  more  heavily 


as  an  inverse  proportion  of  this  time  from  the  pcriu!  t  .  h»  •  >recast.  The 
second  option  allows  the  user  to  choose  weighting  factors  weight  all 

ratios  equally,  weight  past  more  heavily,  etc.). 

The  ratio  difference  method  is  presented  below: 

(,8)  r>t  =  r^  -  rt_^  Difference  of  ratios  where 

rc_.  =  ratio  at  some  previous  interval 

t-n 

i  W(D)  Weighted  average  of  differences; 
t  where  weighting  factors  (w)  are  chosen 

by  the  user  or  are  computed  as  below 

factors  weighted  in  inverse- 
proportions  to  their  distance 
in  time  from  the  period  to  be 
forecas t . 

(11)  8(.+n  =  (rt  +  N(D))  *  Pt+  Forecast  for  small  area. 


(10)  w  .  =  _ 1_ _  *  1 00 

t+n  -  tj 
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For  example,  for  St.  Clair  County,  Illinois 


r50  =  .02357 

r60  =  -02553 

r70  =  .02561 


D50-60  =  ' 00 196 
d60-7 0  =  *00008 
°70-80  =  “*00236 


Weighting  Factors: 


For  1990  forecast 

W50-6O  =  _ 1 _  *  100  =  3- 3 

1990-1960 

W60-70  =  -■  - -  *  100  =  > 

1990-1970 

W70-80  °  1  100  =  10 
1990-1980 

W50-60  =  W50-60/KW  =  *18 
Wb')-70  =  W6U-7()/EW  =  *27 
w70-80  =  1' 70-80/ EW  =  ,5‘4 
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D  W70-80  (D70-8-)  +  W6U-70  (D60-7(P  +  W  50-60 


=  .54  (-.236)  +  .27  (.008)  +  .18  (.196) 

=  -.09 

S90  =  rt  +  1  (D)  *  P9Q 

=  .02325  -  .0009  *  11,804,539 
=  263,831 

As  can  be  seen  in  this  example,  a  significantly  lower  forecast  was  derived 
using  the  ratio  difference  method  than  was  obtained  using  either  the  basic 
ratio  or  average  annual  method.  This  lower  forecast  occurs  because 
information  from  the  most  recent  difference  in  ratios  (1970-1980  period)  was 

preserved  by  this  method,  and  was  weighted  most  heavily.  In  contrast,  the 
average  annual  ratio  method  used  information  only  from  1950  and  1980  to 
generate  its  forecast. 

I 

2.4.  OBERs  Shift  Share.  This  procedure  was  developed  by  the  Bureau  of 
Economic  Analysis.  It  combines  a  ratio  component  with  a  trend  extrapolation 
of  historical  changes  in  the  small  area.  This  latter  component  is  termed  a 
shift  factor  and  measures  the  difference  in  the  small  area's  change  accounted 
for  by  the  simple  ratio  between  the  small  area  and  the  parent  area,  and  the 
actual  change  observed.  The  method  presented  below  was  derived  from 
-**"•  Greenberg,  et  al,  1978. 


t 


The  approach  is  presented  as  follows: 


(12)  St+m  -  (r  t  +  b  ( t+m) )  *  Pt+1B 

In  equation  12,  the  terra  r  represents  the  ratio  factor,  while  the  b 
coefficient  represents  the  "shift"  component,  showing  how  the  relationship 
between  small  and  parent  areas  has  changed  over  time.  This  information  is 
used  to  modify  the  current  ratio  (or  an  average  ratio)  rt«  The  approach  uses 
logarithms  to  compute  the  shift  factor.  Logarithms  smooth  the  curve  when 
rapid  fluctuations  in  ratios  have  occurred.  The  computation  of  the  shift 
factor  b  is  shown  below. 

(13)  b  =  N  i  (logt)  *(log  rt)  -£  (logt)  *  i-  (log  rt) 

N£(logt)2  -  (£  (logt)2 

As  can  be  seen,  equation  13  is  the  familiar  ordinary  least  squares  formula  for 
computing  the  slope  of  a  regression.  This  approach  requires  the  use  of  a 
series  of  historical  data.  Generally,  at  least  10  historical  data  points 
should  be  used. 

For  example:  for  St.  Clair  County,  Illinois: 


I  1 
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Data : 


Year  t 

logt 

(logt)2 

r,. 

log  rt 

logt  *  log 

1950  1 

.0000 

.0000 

.02357 

-1.6276 

0 

1960  2 

.3010 

.0906 

.02553 

-1.5929 

-0.4795 

1970  3 

.4771 

.2276 

.02561 

-1.5916 

-0.7594 

1980  4 

.6021 

.3625 

.02325 

-1 .6336 

0.9836 

1.3802 

.6807 

-6.4458 

-2.2225 

b  = 

4  £  (-2 

.2225)  -  ( 1 . 3802) (-6.4458) 

4  ^  (.6807)  -  ( 1 . 3802 )2 


=  -8.8900  +  8.88965 


2.7228  -  1.9049 
=  .0065 
.8179 


=.0079  (1.008  expressed  as  natural  number) 


S90  =  (antilog  (rg0  +  b*logl0))  *  Pgo 

=  (antilog  (-1.6336  +  .0079  *  1))  *  11,804,539 
=  antilog  (-1.6257)  *  11,804,539 
=  .0237  *  11,804,539 

=  279,479 


2.5  Summary .  Four  methods  employing  ratios  to  derive  forecasts  have  been 
described  in  this  section.  It  has  been  established  that  each  method  has 
different  data  requirements,  makes  different  assumptions  about  the 
distribution  of  historical  information  used  to  derive  forecasts,  and  employs 
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different  mathematical  procedures  to  generate  forecasts.  These  differences  in 
the  methods  are  summarized  in  the  table  below.  Having  discussed  the  ratio 
methods  in  detail,  the  next  section  describes  how  to  use  the  IWR  ratio 
forecast  program. 


Table  1.  Summary  of  Ratio  Forecast  Methods 


Basic 

Average 

Ratio 

Shift 

Rat  io 

Minimum  No.  of  Historical 

Annual 

Differences 

Share 

Data  Needed 

1 

2 

3 

10* 

Mathematical  procedure 

Simple 

Rate  of 

Weighted 

OLS 

to  forecast 

ratio 

Change 

Ave  rage 

Weight  of  Historical 

Data 

3.  Using  the  Ratio  Forecast 

NA 

Program. 

Equal 

Variable 

Equal 

The  ratio  forecast  program  performs  the  following  functions: 

o  generates  forecasts  for  small  areas  using  any  of  the  four 
ratio  methods 

o  generate  a  "composite  table"  of  the  four  ratio  methods  so  that 
values  can  be  compared 

o  makes  revisions  to  data  erroneously  entered 

o  generates  forecasts  for  multiple  small  areas  which  are 
subcomponents  of  the  same  parent  area. 
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o  reconciles  forecasts  of  multiple  small  areas  so  that 
they  sura  to  the  value  of  parent  forecast. 


3.1.  Operation  of  main  program.  The  operation  of  the  program  is  shown 
below.  User  supplied  inputs  are  underlined. 

3.1.1.  Initial  Data  Entry.  On  first  accessing  the  program,  the  user  is 
prompted  to  enter  data: 


Computer  Prompts  Remarks 

ENTER  YEARS  FOR  WHICH  YOU  HAVE  DATA 


Enter  0  to  Stop 
1:  1950 
2:  1960 
3:  1970 
A:  1980 
5:  £ 

ENTER  NAME  OF  PARENT 
AREA:  ILLINOIS  Enter  name  or  other  identification  for 

parent  area  (up  to  10  characters) 

ENTER  DATA  FOR  ILLINOIS  FOR 

1950:  8738000 
1960:  10280000 
1970:  11137000 
1980:  11418461 

ENTER  NAME  OF  SMALL 

AREA:  ST.  CLAIR  Enter  name  of  other  identification  for 

small  area  (up  to  10  characters) 


Enter  years  for  which  you  have  both  a 
value  for  the  parent  area,  and  a  value 
for  the  small  area.  To  stop  enter  a  0. 


ENTER  DATA  FOR  ST.  CLAIR  FOR 

1950:  205995 
1960:  262509 
1970:  285176 


-i 
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1980:  265469 


Enter  Years  To  Be  Forecast  Enter  years  for  which  forecast  is 
Enter  0  to  STOP  desired,  and  for  which  a  parent 

area  forecast  is  available 

1  :  1990 

2  :  2000 
3  :  0 

ENTER  FORECAST  FOR  ILLINOIS  FOR 

1990:  1 1809539  Data  entry  is  now  complete,  program 

2000:  12263810  exits  to  main  menu. 

3.1.2.  Main  Menu.  Seven  options  are  provided  in  the  main  menu.  The  main 

menu  is  displayed  in  full  once,  and  in  an  abbreviated  form  thereafter.  The 

full  menu  can  be  displayed  by  entering  a  number  other  than  1  through  7  in 

response  to  the  menu  prompt. 


Computer  Prompts 


MAIN  MENU  CHOICES: 


Remarks 


(1)  ENTER  NEW  PARENT  AREA  DATA  See  Section  3.1.3 

(2)  ENTER  NEW  SMALL  AREA  DATA  See  Section  3.1.4 

(3)  ENTER  NEW  PARENT  AREA  FORECAST  See  Section  3.1.5 

(4)  EXAMINE/CHANCE  INPUT  VALUES  See  Section  3.1.6 

(5)  ACCESS  FORECAST  MENU  See  Section  3.1.7 

(6)  RECONCILE  SMALL  AREA  FORECASTS  See  Section  3.1.8 

(7)  END 


or 

MAIN  MENU  CHOICE  (1-7) 


3.1.3.  Enter  new  Parent  Area  Data.  If  i he  user  decides  to  test  the 
sensitivity  of  forecasts  using  a  different  parent  area  (e.g.  substituting  SMSA 
data  for  stcte  data)  choosing  option  1  on  the  main  menu  will  put  the  user  back 
into  the  data  entry  mode  described  in  3.1.1  for  parent  area  data.  After 
entering  new  parent  area  data  t lie  program  returns  to  the  main  menu. 


1.1.4.  Kilter  New  Small  Area  Data.  Choosing  option  2  of  the  main  menu  enables 


the  user  to  enter  data  for  a  different  small  area.  Prompts  are  the  same  as 
ilesc  r  i  bed  in  2.1.1. 

3.1.2.  Enter  Mew  Parent  Area  Forecast.  Selecting  option  3  of  the  main  menu 
enables  the  user  to  substitute  different  forecasts  for  the  parent  area.  This 
option  ran  be  useful  if  the  analyst  would  like  to  compare  the  small  area  fore¬ 
casts  among  several  competing  parent  area  forecasts  embodying  different 
assumptions,  etc. 

3.1.6.  Examine/Change  Input  Values  (option  4).  Option  4  of  the  main  menu 
enables  users  to  correct  individual  data  entries  which  were  incorrectly 
entered . 

Computer  Prompts 
INPUT  VALUES  ARE  AS  FOLLOWS 


YEAR 

ILLINOIS 

CALHOUN 

1950 

8738000. 

5600 

1960 

10280000. 

6500 

1970 

11137000. 

6700 

1980 

11418461. 

8000 

FORECAST  DATA 

YEAR 

ILLINOIS 

1990 

12090000. 

2000 

13877000. 

2010 

15380000. 

2020 

17500000. 

DO  YOU  WANT  TO  MAKE  CHANGES  IN  DATA?  (Y  or  N):  Y 
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SELECT  CATEGORY  OF  ITEM  TO  BE  CHANGED 


(1)  Y K A K  f'lR  WHICH  Y-)f  HAVE  DATA 

(2)  PARENT  AKKA  DATA 
(  ))  SMACK  AKKA  DATA 

;  .  >  YKAKS  m  HE  FORECAST 
'))  f*  \RK\T  AKKA  FORECAST 


The  "3"  entered  indicates  that  small 
area  data  is  to  be  changed. 

Program  lists  data  entries  with  an 
identification  number. 


1  Snot  t 

nSOO. 

l  h/no. 

A  HOOD . 

KNTKK  NUMBER  OK  IT  KM  TO  BK  CHANGED:  2 

Old  Value  =  b7()0.  New  Value  = 
fiHOO  ■ 

MOKE  CHANGES?  (Y  or  X) 

N_ 

DO  YOU  WANT  TO  PRINT  DATA  AGAIN? 

(Y  or  N)  N 


3.1.7.  Access  Forecast  Menu  (Option  5). 
is  described  more  fully  in  section  3.2. 
program  returns  to  the  main  menu. 


Program  prompts  for  replacement 
number. 

If  there  are  more  data  changes  to 
be  made  enter  Y. 

To  inspect  data  enter  "Y",  a  "N" 
response  returns  to  the  menu  for 
selecting  ratio  approaches. 

The  operation  of  the  Forecast  Menu 

After  accessing  the  forecast  menu  the 


3.1.8.  Reconcile  Small  Area  Forecasts  (Option  6).  This  portion  of  the 
program  can  be  called  Into  operation  when  the  analyst  has  generated  forecasts 
for  several  small  areas  which  encompass  a  parent  area.  Examples  include 
forecasts  for  SIC  categories  comprising  a  parent  area  employment  forecast, 
forecasts  for  townships  comprising  a  county  for  which  an  external  forecast  is 
available.  It  is  unlikely  that  the  small  area  forecasts  will  exactly  total 
the  value  of  the  parent  area.  The  reconciliation  subroutine  scales  the  small 
area  forecasts  so  that  they  sum  to  the  value  of  the  parent  area  forecast.  The 
scaling  factor  used  is  the  ratio  of  the  summed  small  area  forecasts  to  the 


J 

t 

i 

i 
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parent  area  forecast.  Each  small  area  forecast  is  then  multiplied  by  this 
scaling  factor  to  generate  the  reconciled  small  area  forecasts.  If  the  small 
areas  do  not  entirely  encompass  the  parent  area  a  "Balance"  is  automatically 
computed  representing  that  portion  of  the  parent  area  not  included  in  the 
small  areas.  A  forecasted  "Balance"  is  computed  on  the  basis  of  the  most 
recent  ratio  of  the  "Balance"  to  the  parent  area.  This  balance  is  then 
treated  just  like  a  small  area  in  the  scaling  routine. 


MAIN  MENU  CHOICE  (1-7):  6 

RECONCILED  FORECAST  FOR  SMALL  AREAS 
PARENT  AREA=  ILLINOIS 


SMALL  AREA 
ST.  CLAIR 
CALHOUN 
BALANCE 


1990 

273595. 

9121. 

11521824. 


2000 

283802. 

9913. 

11970095. 


TOTAL  11804539.  12263810. 

MAIN  MENU  CHOICE  (1-7): 


2010 

320717. 

11633. 

13544650. 

13877000. 


2020 

3550023. 

13324. 

15011653. 

15380000. 


In  the  above  example,  the  program  has  adjusted  the  forecast  values 
of  two  small  areas  which  do  not  entirely  encompass  their  parent  area. 


3.1.9.  END  (Option  7).  This  option  ends  the  program. 


3.2.  Forecast  Menu.  As  noted  above  selecting  option  5  on  the  main  menu 
accesses  the  forecast  menu.  Like  the  main  menu,  after  the  user  has  viewed  the 
full  menu  once  an  abbreviated  form  is  shown.  If  the  user  wants  to  see  the 
entire  menu  it  can  be  accessed  by  entering  any  number  besides  the  choices 
shown. 
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Computer  Prompts 


(1) 

BASIC 

RATIO  METHOD 

Sect  ion 

3.2.1 

(2) 

ANNUAL 

AVERAGE  RATIO 

Section 

3.2.2 

(3) 

RATIO 

DIFFERENCE  METHOD 

Sect  ion 

3.2.3 

(4) 

SHIFT 

SHARE 

Section 

3.2.4 

(5) 

COMBINATION  TABLE 

Sect  ion 

3.2.5 

(6) 

EXIT  TO  MAIN  MENU 

Section 

3.2.6 

or 

FORECAST  MENU  CHOICE  (1-6): 


3.2.1.  Basic  Ratio  Method  (Option  1) 


Computer  Prompts 

SELECT  ONE  OF  THE  FOLLOWING  RATIOS: 


(1)  1950  .02357 

(2)  1960  .02554 

(3)  1970  .02561 

(4)  1980  .02325 


Enter  number  of  choice 


FORECAST  FOR  ST.  CLAIR 
RATIO  =  .02325 

1990:  274445. 

2000:  285123. 

2010:  322628. 

2020:  357571. 

Program  then  asks  If  this 
forecast  will  be  used  in  the 
reconciliation  routine  -  see 
section  3.1.8.  A  response  of 
"Y"  allows  choice  of  another 
ratio.  A  response  of  "N"  to 
this  prompt  returns  the  user 
to  the  main  menu. 


DO  YOU  WANT  TO  RECONCILE  THIS  FORECAST? 
(Y  OR  N):  N 

DO  YOU  WANT  TO  TRY  ANOTHER  RATIO? 

(Y  OR  N):  N 


3.2.2.  Average  Annual  Ratio  (Option  2). 

Computer  Output 

FORECAST  USING  AVERAGE  ANNUAL  FACTOR  OF  -  .00046 


YEAR  FORECAST 
1990  273173. 
2000  282480. 
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!)<)  YOU  WANT  TO  RECONCILE  THIS  FORECAST?  Sec  above  in  basic  ratio  comments 
(Y  or  N)  concerning  this  question. 

3 . 2 .  3  Ratio  Difference  (Option  3). 

Computer  Output 


DIFFERENCE  IN  RATIOS  ARE  AS  FOLLOWS: 


1950-1960 

1960-1970 

1970-1980 


0019613 

0000703 

0023571 


WHICH  DIFFERENCE  METHOD  WOULD  YOU  LIKE 


TO  USE :  J_ 

(1)  Proportional  Weights 

(2)  Weighted  Average 

WEIGHTS  FOR  1990  ARE: 

1 950-1960  .182 

1960-1970  .273 

1970-1980  .545 


FORECAST  FOR  1990  =  263704. 

WEIGHTS  FOR  2000  ARE: 

1950-1960  .231 

1960-1970  .308 

1970-1980  .462 

FORECAST  FOR  2000  =  270071. 


As  described  in  section  2.3. 

User  has  option  of  entering 
factors.  By  Entering  a  "1" 
weighting  factors  are  pre-selected 
as  discussed  in  section  2.3. 
Entering  a  "2"  enables  the  user 
to  specify  their  own  weights. 
User-specified  weights  should  sura 
to  1.0. 


DO  YOU  WANT  TO  RECONCILE  THIS  FORECAST?  (Y  or  N) 

See  comment  in  section  3.3.2  concerning  this 
question . 

3.2.4  Shift  Share  (Option  4). 


IMPLICIT  SHIFT  FACTOR  IS  1.00769 
SELECT  RATIO  EOR  USE:  1 


(1)  .023  (1980)  Program  offers  users  opportunity  to 

(2)  AVERAGE  RATIO  =  .024  use  most  recent  ratio  or  an  average  ratio 

computed  over  the  historical  time  period. 


YEAR  FORECAST 

1990  279332. 

20  Or  i  291  746. 


1)0  YOU  WANT  TO  RECONCILE  THIS  FORECAST? 
(Y  or  N) 


See  comment  in  section  3.2.1 
concerning  this  question. 


5. 2. 5.  Combination  Table  (Option  3).  In  many  cases  an  analyst  might  like  to 
compare  the  forecasts  generated  by  each  of  the  ratio  methods  presented  in  this 
manual.  Option  5  presents  a  comparative  table  for  the  small  area  containing 
basic  ratio,  average  annual,  ratio  difference,  and  shift  share  forecasts.  The 
basic  ratio  forecast  uses  the  most  recent  ratio,  the  ratio  difference  forecast 
uses  the  proportional  weights  method,  and  the  shift  share  forecast  employs  the 
most  recent  ratio  to  serve  as  share  factor. 

Computer  Output 

COMPARATIVE  FORECASTS  FOR  ST.  CLAIR 
HISTORICAL  DATA 


YEAR 

ILLINOIS 

ST.  CLAIR 

1950 

8738000. 

205995. 

1960 

10280000. 

262509. 

1970 

1 1 1 37000. 

285176. 

1980 

1 1418461 . 

265469. 

FORECAST 

YEAR 

ILLINOIS 

ST.  CLAIR 

BAS  IC 

AVERAGE 

RATIO 

SHIFT 

RATIO 

A ANNUAL 

DIFFERENCE 

SHARK 

1990 

1 1804539. 

274445. 

273173. 

263704. 

279332. 

diioo 

12263810. 

285123. 

282480. 

270071  . 

291746. 

2010 

1 3877000. 

322628. 

318143. 

302652. 

331 1 50. 

2020 

1 638000. 

357571. 

350944. 

i  32 79  7 . 

367827. 

After  printing  the  comparative  table,  the  program  returns  to  t tie  mu i n  menu. 

If  tiie  user  chooses,  individual  forecast  approaches  can  he  accessed  and 
various  sub-options  in  the  approaches  (e.g.  use  of  different  share  factor, 
different  basic  ratio,  different  weighting  factors)  explored.  Similarly,  it 
the  user  wants  to  use  a  forecast  in  the  comparative  table  in  a  reconciliation, 
tlie  particular  forecast  must  be  reproduced  by  accessing  the  relevant  ratio 


forecast  option  (1-4)  in  the  forecast  menu. 


1.2.6.  Kxit  to  Main  Menu  (Option  6).  Option  6  returns  t tie  user  to  the  main 


menu . 


4 .  Summa  ry 


This  user  manual  has  described  four  ratio  methods  which  can  be  used  to 
generate  forecasts  for  socio-economic  variables  in  small  areas.  It  is  felt 
that  these  methods  offer  a  means  for  providing  Corps  planners  with  a  way  to 
generate  forecasts  of  population,  income,  and  employment  for  small  study 
areas.  The  IWR  program  presented  offers  a  way  to  relieve  the  computational 
tedium  associated  with  using  these  methods.  While  the  methods  are  easy  to  use 
and  conceptually  straightforward,  it  should  again  be  emphasized  that  the  role 
of  professional  judgment  on  the  part  of  the  analyst  is  just  as  essential  in 
the  use  of  these  methods  as  it  is  in  using  any  other  forecasting  techniques. 
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APPENDIX  A 


Using  the  Ratio  Forecasting  Program 
on  the  Harris  Computer 
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Appendix  A 

Using  the  Ratio  Forecasting  Program 
on  the  Harris  Computer 

To  use  the  RFP  enter  the  following  statements  after  logging  onto  the  Harris: 

FORTRAN,  IRFP  NOTE:  In  this  instance  name  of 

F R , 5  RFP  is  IRFP 

ASSIGN,  5=FORDATA 
VXECUTE 

Note  that  the  ASSIGN,  5  =  FORDATA  creates  an  output  file  (FORDATA)  which  can 
be  stored  and  accessed  at  a  later  date.  In  this  way  RFP  can  be  run  on  a  CRT 
and  the  output  retrieved  and  printed  later.  The  output  can  be  retrieved  by 
bringing  it  into  Editor  and  listing  it. 
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A  IT  KN niX  R 


FORTRAN'  Mi 


I  ist  in;,;  of  RI  P 


29 


jwnmnm  ntm  wum-me  num 


r...’ : r."‘.  .  ■■  ;  r cor am  v 

nor  tf  ill  'or  ’ :  v.:  :  '  1 

ale  pander.  u.:..  aruy  ! 

Ws*.  rf'R  ri  soupci  .  ft,  c:  iv 


o  common  .  oNrv  i.d  • : . .  r  : 

:■  twr  ■:  iz) .  . u~:  .  . 

8  2  J1.0MNI  .rV  <  r*>  P.’.  15). 

9  common  .  tup.-  tfouni  .p.v 
!  0  C 

lie  -  •  INPUT  Dl  DATA 

.12  c 


IZ 

UP  1 1 !  <3,1  2  :• 

1  4 

N  20 

1j 

’COUNT  0 

16 

J COt. IN  T  0 

1? 

IT  0 

18 

12 

FORMAT ( 5X .  "EN'TFR  rf  ARS  TOR  Will  CM  YOU  I’AVT  DA!  V 

19 

1 

5x ,  "enter  o  to  srorv.  . 

20 

*7 

FORMAT < 12) 

21 

DO  10  I A  l.N 

oo 

WRITE  (3.5)  I A 

23 

5 

FORMAT  (  T 1 5 . 1 2 . 1 X  .  "  .  5>, ) 

24 

READ  (3,9)  I Y ( I A  1 

25 

.J  =  I A 

26 

IF(lYdA)  .80.  0 )  GO  TO  11 

27 

10 

CONTINUE 

28 

11 

CONTINUE 

29 

9 

FORMAT'.  14) 

30 

J  J  1 

31 

'in 

WRITE  (3.6) 

32 

ICOUNT  ICOUNT  +  1 

33 

6 

FORMAT  </5X, "ENTER  NAME  OF  PARENT  AREA:",  EX) 

34 

READ  (3,4)  ( PA (ICOUNT, I) .  IV  1.2) 

35 

4 

FORMAT (2A6) 

36 

WRITE  (3,23)  ( F'A ( I COUNT ,  I  > .  I  1.2) 

37 

23 

FORMAT  ( /5X ,  "ENTER  DATA  E OR"  , .!  X,  2A6 ,  1.  X ,  "NOTE  IMCUJI 

)E  DEC  IMA'.  ' 

30 

DO  25  I A” 1 , J 

39 

WRITE  (3,24)  IY(IA) 

40 

24 

FORMAT ( T15, 14, 2X , " ; " . 5X ) 

41 

READ  (3.17)  A  ( I A  ) 

42 

17 

FORMAT (F7.0) 

43 

25 

CONTINUE 

44 

JA-0 

45 

IF ( IT  .EG.  0 >G0  TO  26 

46 

GO  TO  83 

47 

26 

WRITE (3, 18) 

48 

JCOUNT  ==  JCOUNT  >  1 

49 

18 

FORMAT (/5X, "ENTER  NAME  OF  SMALL  AREA=".5X) 

50 

READ  (3,4000)  (NN( JCOUNT, I ) , 1=1 , 4 > 

51 

WRITE  (3,4001)  <NN< JCOUNT, I) ,1-1,4) 

52 

4000 

FORMAT (4A3) 

53 

4001 

F0RMAK/5X,  "ENTER  DATA  FOR  ",4A3,"  NOTE:  INCLUDE 

DECIMAL  1  "'/ 

54 

JA=JA  f  1 

55 

IT  2=0 

56 

RA-0 

57 

DO  30  IA=1 ,  J 

58 

WRITE  (3,28)  I Y ( I A ) 

59 

28 

FORMAT ( T15, 14 , 2X , " : " , 5X ) 

60 

21 

READ  (3,17)  B  ( I A ) 

61 

IF  ( B  ( I A )  .LT.  A(IA))GC)  TO  29 

62 

WRITE  (3,44) 

63 

44 

FORMAT (T5. "SMALL  AREA  LARGER  TUAN  PARENT  AREA.  RE 

ENTER",/) 

A4 

nn  r n  r>i 

. . •  f i !  ! 

1  :  !  r  M!  0!  :  .AS!  •  .-.d, 

■ :.iv  :;iv !.’:!.  ■.?  .:•■ 

!  OKitf'i  f  "i.NTi.x  lCAft'i  to  :•  r  r  c  > 

2  )■  !  ■  s :  " 

WRITE  (  3.5  ID 

rcao  irnar.) 

j/  Tj  ; 

fO 

TF(IYEUIB)  .DO.  0 > GO  TO  1.26 

JO  1 

•i  r 

CONTINUE 

3.1  1 

36 

CONTINUE 

j  '*  7 

i",  1 

uir  1  te  <  3 .  /co  ■  ( rYi  •:  1  count  ,  I  ■ .  x  =•  s. . /  > 

j  '■  ». 

oc 

FORMAT  •; ,  ,  “ENT  ! .  R  FQRECAG  T  1  OR"  ,  ■  X ,  7AG  ,  i> 

.  "NOTE  INC 

j  6 

j)0  1.7/5  IB  J. .  K2 

WRITE  (3  205)  IYIMIB) 

.ill  2 

05 

EORMAT  \  T 15 . 1  4  5X> 

?  O 

READ  (3.17)  ROB) 

’0  1 

35 

CON  I  INIJE 

7.1 

GO  TO  03 

■73  c 
?4  r 

v ECHO  DF  INPUT  VALUE 3 

?5  3 

*1 

WRITE  (3.35)  ( PA  ( IC0UNT ..  I )  I  ■  .!  .2)  ,  NN  (  JCQUN  !  ,  I )  1 

76  3 

FORMAT ( /3X , "INPUT  VALUES  ARE  AO  DO!  .LOUD ; 1 

/  / 

?7 

@T 15, "YEAR" , 6X . 2A6 , 6X .  4A3 ) 

?8 

DO  55  I A=1 . J 

?? 

WRIT E  (3,40)  I Y  ( I A ) ,  A  ( )'  A  >  . B ( I A ) 

too 

40 

FORMAT (T15.I 4 , 6X , E 1 0 . 0 , 6X . F 1 0 , 0 ) 

101 

55 

CONTINUE 

102 

WRITE  (3.92)  ( PA ( I COUNT , I ) , I ; 1,2) 

103 

92 

FORMAT  < /T23 . "FORECAST  DATA" . //tl5. " YEAR' 

.  6X . 2A6 ) 

106 

DO  94  IA-1.K2 

105 

WRITE  (3.96)  IYB(IA).POA) 

106 

96 

FORMAT  (  T .1 5 ,14. 6X ,  F  10.0) 

107 

94 

CONTINUE 

100 

c 

109 

C 

***  CHANGES  IN  DATA  AND  WRITING  DATA  TO 

FILE  SUB  CALI 

110 

C 

111 

WRITE  (3,81) 

112 

31 

FORMAT (/5X, "DO  YOU  WANT  TO  MAKE  CHANGES 

IN  DATA?  (V  C 

113 

READ  (3,32)  IAN 

114 

IF (IAN  .NE.  1HY ) GO  TO  83 

115 

32 

FORMAT (A1 ) 

116 

CALL  CHANGE 

117 

GO  TO  33 

118 

33 

CONTINUE 

119 

CALL  FILEIN 

120 

IYE  I.Y(J) 

121 

IYBT  I Y ( 1 ) 

122 

IX- IYE  IYBT 

123 

70 

FORMAT ( 5X , " PER I 00 " , IX , 12 , 5X ) 

124 

33 

DO  32  IA-1 , J 

125 

R ( I A )  B ( I A ) /A ( IA ) 

126 

RA  RA  +  R ( I A ) 

127 

32 

CONTINUE 

128 

AV-R( J)/R( 1 ) 

129 

AA=EXP(ALOG(AV)/IX>  .1 

130 

51 

on  m 

tessv 


M!  NU  rntu 


1  « 

WR  1  TE 

-  7  7  “ 

J  33  'v* 

r 

■; ,  C.X  .  “f  CAe" 

(  f 

r if>  t  n 

?v 

1..-.5  i 

MR  1  :  E 

f  '»■;  > 

136  "C 

r ORMA I 

</5X.  'THRf.CAS 

1 3  " 

.!,  TI5." 

a:  BASIC  RAT 

1  38 

2 .  ■  r  .1 5 

"(3)  RATIO  Dl 

1  •?  9 

3715." ; 

5)  CUMBINAT 10 

!  79 

READ  ( 

3. CL)  IS 

141  00 

FORMAT 

■,  1 .1.  > 

1  42 

ire  is 

. U  T .  A  . OR.  I 

1  /  7 

IT  1 

i  ''  4 

CO  TO' 

95.145.1 >2.14 

145  C 

146  C 

\  BA 

SIC  RATIO  MET 

i  of,-  o  to  set  iiCN'j"  sx ) 


1  95  CONTINUE' 

14?  WRITE  <3.100) 

ISO  WRITE  (5.J  00) 

11,1  100  E CROAT  C 5X .  "SELECT  ONE  OF  THE  FOLLOWING  RATIOS*",/) 

152  DO  105  IiVl.J 

1 5 3  WRIT E  ( 3 . 1 0 3 )  I A , I Y < I A ) , R < I A ) 

154  WRITE  (5.103)  I A  .  .1 Y  ( I A )  .  R  ( I A ) 

155  103  FORMAT  <  T 15 .  "  (  "  .  12  IX,  I  4 .  3X ,  F7 . 5 ) 

156  105  CONTINUE 

15/  WRITE  (3,106) 

153  106  FORMAT ( / ) 

159  READ  (3,80)  K 

1 A 0  WR I  TE  (3.115)  ( NN  ( JCOUNT ,  I ) ,  I “ 1 , 4  > ,  R  ( K ) 

161  WRITE  (5,115)  ( NN < JCOUNT , I ) ,1  =  1,4) , R ( K > 

162  115  FORMAT ( /5X . "FORECAST  FOR" ,1X, 4A3,/5X, "RATIO- " , IX ,F6 .5,/) 

163  DO  140  ).'B  i.K2 

164  F  ( IB)  aR(K)  >:■  P(IB) 

165  WRITE  (3.127)  TYB< IB ) , F (IB ) 

166  WRITE  (5,127)  I YB ( IB) , F ( IB) 

167  127  FORMAT ( 5X , 14 . IX . " ; " , IX , F9 . 0) 

163  140  CONTINUE 

169  WRITE  (3,700) 

170  700  FORMAT </5X, "DO  YOU  WANT  TO  RECONCILE  THIS  FORECAST?  (Y  OR  N) ' 

171  READ  (3,82)  IAN 

172  IF (IAN  .NE.  1HY)G0  TO  151 

173  CALL  PRECON 

174  GO  TO  187 

175  151  WRITE  (3.701) 

176  701  FORMAT (/5X, "DO  YOU  WANT  TO  TRY  ANOTHER  RATIO! Y  OR  N):",5X) 

177  READ  (3,02)  IAN 

173  IF  (IAN  .NE.  1HY>G0  TO  137 

.179  GO  TO  95 

180  19J  CALL  COMP 

181  GO  TO  187 

182  142  CALL  DIFF 

183  GO  TO  187 

184  144  CALL  SHIFT 

185  GO  TO  187 
136  C 

187  C  ***  ANNUAL  AVERAGE  RATIO  *** 

188  C 

18?  145  WRITE  (3,150)  (NN( JCOUNT, I) , I  1,4) ,AA 

190  WRITE  (5,150)  ( NN ( JCOUNT , I ) , I~1 , 4 ) , AA 

191  150  FORMAT (5X, "FORECAST  FOR" , IX , 4A3, IX, "USING  AVERAGE  ANNUAL", 

192  i?/"  FACTOR  OF"  ,  IX  ,F7.5 , / 

193  i>/T15 ,  "YEAR” ,  8X,  "FORECAST" ) 

194  DO  160  IB=1,K2 

195  XI2-FL0AT ( IYB( IB)  -  IYE) 

1<?A  r< ’TP.\~n 


IX) 


(B-3) 


F"  C I B  > 


FUB)=(R(J)  (1  +  XI 2  s  AA )  ) 

WRITE  (3.15?)  IYB(IB),r(IB) 

WRITE  (5.1 5  7 )  I Y B < 1 3 > . F ( I B > 
r  OR  M  A  T  (1 5X  .  1 4 . 6X ,  F  9 . 0  ) 

CONTINUE 
WRITE  (3.700) 

READ  (3.02)  IAN 
IF (IAN  .ME.  Urn 00  TO  187 
CALL  PRECON 
FOR OAT ( 17.0) 

CONTINUE 

IF (IT  , EQ.  0)00  TO  182 
WRITE  (3,705) 

FORMAT (/5X. "MAIN  MENU  CHOICE  (1-7):  OR  C  TO  SEE  MENU 

GO  TO  706 

CONTINUE 


WRITE  (3. ICO? 

F  ORMAT  ( /5X .  “MAIN  MENU  CHOICES :  ,  // 

7.15.  "  1  -  ENTER  NEW  PARENT  AREA  DATA"./ 

2  ENTER  NEW  SMALL  AREA  DATA",/ 

3  ENTER  NEW  PARENT  AREA  FORECAST”,/ 

4  EXAM  1 NC/C RANGE  INPUT  VALUES",/ 

5  ACCESS  FORECAST  MENU"  / 

6  RECONCILE  SMALL  AREA  FORECASTS",/ 

7  END"./) 

3. 1S5 )  I PLY 


IT  15 , " 
IT  15.  " 

vris; " 

«v  r  I  r-  i ! 

-.j  I  .1.  -.J  . 

6TI5 ’ ” 

■’7  r  1  1 1 

READ 


iFapi.Y  .err.  7  .or.  iri.v  .lt.  1:00  to  102 

FORMAT ( 1 1 > 

G  0  T  C  (22. 2 6 .  2 0 1 . 3 4.73. 0  4 0  3;,  I P  L  Y 

CALL  RECON 

GO  10  107 

STOP 

END 


RATIO  DIFFERENCE  SUBROUTINE  *>:■>: 
SUBROUTINE  D1TF 


COMMON 
i  wr ( i s  > 
2 J COUNT 


/ 0 N E /  J.D(15).R(1 5 ) , I Y ( 1 5 > , K 2 , 1 Y B < 1 5 ? , P ( 1 5 ? , 
JA . RC ( 20 . 20 > ,  WT1  ( .15 > ,  WT (15), F(  15 > , NN ( 15,4 > , ' 
A  ( i.5 )  .  B (  1.5 )  ,  RA 


DM  0 

FORMAT ( /5X , "DO  YOU  WANT  TO  RECONCILE  THIS  FORECAST" , / 
1 "  ( Y  OR  N )  :  ”  ) 

FORMAT (Al) 

X  N  N 1  •  F  L.  0  A  T  ( I Y  ( 2 )  > 

XNN2  ;  FLOAT  (IY  (DO 
K5-J  1 

DO  250  IB"  1 . 1(5 

O(IB)  R  ( IB  +  I)  r<(I?.) 

DM  ON  *  D(IB> 

CONTINUE 
D1  XMN1  XNN2 
D3  0 

DO  255  IB-1.K3 

02“ ( IY( IB  f  1)  IY( IB)  ?/D:t 

D3  D3  i  D2 

CONTINUE 

ir (it;?  .err.  o)oo  to  273 

WRITE  (3.260) 

WRITE  (5.260) 

FORMAT (5X, "DIFFERENCES  IN  RATIOS  ARE  AS  FOLLOWS:",/) 

DO  T’ft  Tp  ;  |  l/rr 

WRITE  (3,265)  IY(IB),IY(IB  •:  1),DUG) 

Uir,TTr  'Vn  ’■  *vfrn\  Tv/yr  <.  r  /  m  % 


i  ,-•>  ■■}■  -  ,*n  i 

t 


LON  r  T ,  ! U L 
WRIT E  ■.  5 ..  275 - 

format :/.5x. "which  difference  method  would  you  likc  to 

i  T  .15 .  "  ( 1 )  PROPORTIONAL  WE 101  ITS"  .  /715 ,  "  <  2 )  WHICH  ICO  AVER 


READ  <3.. 

200  I A 2 

f ORMAT ( I 

;|  ) 

If'-TA? 

j.)  285,20 

5  300 

CONTINUE 

WRITE  (5 

.  206) 

FORMAT  i 

//.  "E'ROROR 

T TONAL 

WRITE  <3 

. 233)  (NN( 

J COUNT 

WRITE  ( 5 

.283)  ( NN ( 

..'COUNT 

f ORMAT ( 5 

X.  "EORECAS 

T  FOR" 

DO  .'°5  I 

A  :  1  , H2 

DO  375  I 

n  1  I--- 

WTieto 
W  T  (  I  p.  5 
CONTINUE 
HIM!  3 

df.ar  o 

i’ll  !  !  OAT  '  I YD  ( I A  >  I'  F  .!)! 

!)0  2’?0  T  2  ;!  !  * 5 

WTJ. VlB >-  CL./FEOATCIYDC  a:  iycij  :  1)3)  •:  1 

SUM!  CUM  I  !  WTI<IC.) 

CONTINUE 
DO  271  IP.--i.K5 
WT  ;  JED-WTHiBV'CUfU 
wx  wt:if:  5  Hi  ::D; 

DI7AR-  WX  ■!  DBAR 
continue 

WRITE  (3.360)  I YP  ( IA> 

WRIT'.:  <5.360  lYPCCA) 

r o r mat ( /$ x .  •  ■  w e i g : i r o  r o r " .  i x ,  x *v . i x , " a r e:",/) 


:'7C  WRITE  (3.361)  IY< IB) , IY<IO ‘ i 3 , WT<IB) 

:?v  WRITE  <5.3613  IY<  ID)  .  IY  ( IB  (•  1),U7(TB3 

I C  v  W  R I T  C  ( 5 . 3  3. 7  >  I Y  D  ( I A  >.F<  I A ) 

rci  36  i  FORMAT  <5X.I/<."  "  .  I  4 , 5X  ,  F  4 ..  3 ) 

'07  365  CONTINUE 

50  3  Z'r,  r(I  A  3  0 

50,  F'lA;  (R(J)  i  A  0 1  '  DBA."'  3  :  R  ( I A  3 

5  ; 5  ? r~  r 0 R M A  P.'CX  ,  "FORECAST  I'  OR"  ,  1 X ,  I  •  .  IX , "  -  " , IX , F 1 1.0) 

:c-i  WRITE  <3.3173  IYB. ( I.V  .  I  ( )  A 3 

50.  275  CONTINUE 

50Y;  WRITE  (3.700- 

READ  ( 3 .  .“7  >  I  AN 

3  '  II  <  TAN  ..NT.  f  10  352 

3 1 1  CALL  PRECON 

3  !  ;•  CO  TO  357 


’  i  «r  T  Q 

5  i  S 

3  17  30 
310 

7  ;  o  ir.r 


7  ->  1 

322 

323  315 
32-i 

325  320 

326 

327 

3  Oft  -*tn 


CONTINUE 
WRITE  <5. 30'*) 

FORMAT  < // . "WEIGHTED  AVERAGE  METHOD" . // ) 

WRITE  (3,305) 

FORMAT < 5X . "ENTER  WEIGHTING  FACTORS  FOR  DIFFERENCES J ", /) 
FA  A  C 

DO  310  ID  l.KS 

WRITE  (3.315)  I V  <  I B  3  . 1 Y  <  I B  s  .13,0(10) 

F  ORMAT  <  T 1 0 , 1 6 . " - " , 1 4 , 5X , F9 . 7  3 
READ  <3,3203  Wf(IB) 

FORMAT (F4 .3) 

F3A-=Wr  ( IB)  *  DCIB3 
F4A--F4A  +  F3A 

rnwTTwiir 


•awn 


7  >0 

w<  ». 


urj  (i  :  ■;  3 ..  ;■ 


330  325 
3  3 1 

332 

333 
33  4 

335  335 

336  330 

337 
33(3 

339  340 

340 

341 

342 

343 

344 


rORflf.T  (5X."I  ACTORS  !  ,2  '  0  !  ..."  ' 

1/T15.  "PERIOD",  5X.  M  2.  .  w:  • 

DO  330  ID  I.K5 

U  R I T  F  <  3.3  3  5  )  I Y  ( 1  B )  .  Y  ■  '•  >.  •  .  0 !  : 

WRITE  (5  ,335  '  IYC  TC:  .  T',  ■  TC  ,  .  2  !  Of 

FORMAT ( TI2-  r  * .  "  J. I  .  1 

CONTINUE 

WRITE  (3,340)  ( NN( JCOUNT , ! )  ’  J  , 

WRI TE  <  5 . 340  )  ( NN (  JCOUNT .  ;  ,  .  J 
FORMAT  (  5X ,  ‘TORE EAST  FOR"  .  a  ,  4 A 3  .  I  X  .  "i  ICING" 
15X, "WEIGHTED  AVERAGE ./) 

DO  330  IB  1,1(2 
FOB)  0 

L>.  II  =  F  L  0  A  T  ( .1 Y  B  ( I B )  3  Y  ;  J  )  ) .  D  3 

F ( I B  )  =  ( ( F  4 A  *  B 1 1 >  •<-  R < J ) )  •  F(I C ) 


345  WRITE  (3,345)  I YB ( IB ) ,  I  3 XV. ) 

346  UR  IT  E  (5, 3  4  5  >  I  YB  ( I  !?■ ) .  F  ( I B  > 

347  345  FORMAT (T15, I4.5X.F11 . 6) 

348  350  CONTINUE 

349  WRITE  (3.700) 

350  READ  (3.82)  IAN 

351  IF ( IAN  . NE .  1HY)G0  TO  352 

352  CALL  PRECON 

353  IT 2- 1 

354  GO  TO  352 

355  352  CONTINUE 

356  RETURN 

357  END 

358  C 

359  C  ***  SHIFT  SHARE  METHOD  SUBROUTINE  x*:; 

360  C 

361  SUBROUTINE  SHIFT 

362  C 

363  COMMON  /ONE/  J , D( 15 ) , R ( 15) , IY ( 15) , K2 , IYC ( 15 ) ,P (15 

364  1 WF  ( .1 5  > ,  JA ,  RC  ( 20 , 20 ) ,  WT 1  (.1 5 ) ,  WT  ( 1 5  > ,  F  ( 15),  NN  ( 1 5 , 4 ) 

365  2  JCOUNT ,  A  ( 15 ) ,  B(  15 ) .  F<A 

366  C 

367  D1  "FLOAT  ( IY(2)  -  IY(D) 

368  SIX=0 

369  700  FORMAT ( /5X , "DO  YOU  WANT  TO  RECONCILE  THIS  FORECAS 

370  1"(Y  OR  N):") 

371  82  FORMAT ( A1 ) 

372  WRITE  (5,401) 

373  401  FORMAT ( // , IX, "SHIFT  SHARE  METHOD  USED",//) 

374  XY=0 

375  SXY  0 

376  SX-0 

377  SY=0 

378  DO  400  I E  -=  1 ,  J 

379  DT =FLDAT ( IE ) 

380  DYX=ALOG ( DT ) 

381  SIX=SIX  +  DYX**2 

382  RY=ALOG(R( IE) > 

303  XY=DYX  *  RY 

384  SXY=SXY  +  XY 

385  SX-SX  +  DYX 

386  SY=SY  +  RY 

387  400  CONTINUE 

388  AVE'-RA/J 

389  ONUM= ( J  *  SXY)  -  SX  *  SY 

390  DENOM=(J  *  SIX)  -  SX**2 

391  BB=DNUM/DENOM 

392  BA=EXP(BB) 

393  WRITE  (3,405)  BA 

394  URTTF  (*, 


1 

1  ■  i!  TV,  ’  ,  •  . 

J 

1  r' 

:  V  *  ■"  1 1  1  .  ' 1  ( 

|  j  1  -  i  ;  .  .  5 1  1  p  1  ,• • .  j  !  :  ■  '  ' 

wi  !  •  i  r  t 

■■t  ' 

UP!.  5.  ,2;  7"  .  i  M  ’ 

,  .■*  ! 

format  mg)'  0!,:  i  4  :r  :  :i(  .  -.x  .  , .. , 

;  rk ; 

wr> r rr:  .3  - 

»  ‘w  O 

WRITE  .5. ',27; 

*,?0 

fopmat  mo.  ■.  "i  ■  ; 

'[  r  '[  :-V'  !  : 

t  4. 

C ON ( 1 NUL 

1 J  J. 

r  1  r  >  o 

t  .1  ,..* 

F2A  tloat  :  :  tymm: 

4  1  3 

F(ID)  i.  x!  ;.v  or  c:  7; :•  j  bu  -  A!  oo  .,72  -  ••  : 

4  l 4 

430 

CONTINUE 

4 1 5 

DO  43.t  ic 

4  1 6 

URITC  '7.3.425,  IVr.aB^.F  «.  te.i 

- 1. 7 

WRITE  (5.4254  (MM  CM  ,E  ■:  CM 

410 

4 »..  "• 

roR(ior(Ti5..(4f5x.  r  .12.0; 

-.19 

431 

CONTINUE 

420 

WRITE  <3,7001 

471 

READ  <3,07;  TAN 

422 

IF  <  IAN  .Nil.  1HY)  00  TO  445 

47;? 

CALI  PR EC ON 

424 

GO  TO  445 

42  j 

435 

CONTINUE 

4  26 

DO  4  40  I A  1,K7  j 

427 

F  ( I A )  -  0  1 

4  2(3 

E2I  FLOAT ( I YB < I A )  l  Y  <  J>  :• 

429 

F2TM  B2I/D  1 

430 

E  <  T  A  )  =EXP  <  ALOG  <  A  VC  )  >  <  OB  *  AI..OG  <  F  2C  )  ) )  '  P  ( I A  ■  j 

431 

WRITE  <3.425>  IYB(IA>,FQA)  1 

432 

WRITE  <5,425)  I YB < IA > . F ( I A) 

) 

433 

4  40 

CONTINUE  l 

I 

434 

WRITE  (3,700)  1 

435 

READ  <3,82)  IAN  ' 

436 

IF  ( IAN  -NT.  1MY)G()  TO  445  > 

437 

CALL  PRECON 

438 

4 't  5 

RETURN 

439 

END 

440 

c; 

441 

c 

.♦  •  •  RECONCILIATION  SUBROUTINE  < 

442 

c 

I 

443 

SUBROUTINE  RE CON 

444 

c 

445 

COMMON  /ONE/  J , D <  15)  .  R<  .1.5  )  ,IY<15)  ,l<2,  TYIM  15  .  P  1 15)  , 

446 

1 WF  <  1 5  )  ,  ,JA  .  RC  (  20 , 20  > ,  WT 1  ( 1 5  > ,  W T  Ml  5 )  ,  r  '  1 5  :  .  NN  M  : ;  ..  . ;  , 

447 

2  JCOUNT  ,  A  <  1.5  )  ,  B  ( 15)  .RA 

448 

COMMON  /TWO/  I  COUNT  ,  PA 15  ..  2 )  ,  51JMB ,  F:B  C 15  S  .  I  YE! ,  A  A ..  PW  (  15)  .  55  <  15  '  ' 

449 

c 

1 

450 

DIMENSION  SAFR < 20 . 20 ) .BE  (15) 

* 

451 

REAL  -  ( A  (  J  )  SUMO /At  J)  *  * 

452 

IC- JCOUNT 

453 

DO  510  IB  1 ,K2 

454 

BF  ( IB  )  =P(  IB)  *  RBAI. 

- 

455 

510 

CONTINUE  i 

1 

456 

00  550  IB- 1 , K2  1 

t 

* 

457 

XSUM ”0 

•  i 

458 

N--  0 

459 

SUM  0 

'  ? 

460 

t. 

1  i  " 

- wpw  ----  — -  — ***-» - — - —  - — *• 

.  ■  •  lti  ..  .  •  ! 

-*■ 

•  - 

_ _ _ _ 2...  .  .. _ l.  .  _ - tiiMA-d...  * - 4 

660  .1099 

661  1100 
662 

663  1095 
666 

665  C 

666  C 

667  C 

668 

669  C 

670 

671 

672 

673  C 
676 

675 

676  100 

677 

678 
6  79 

680  735 

681 
602 
603  C 
606  C 
685  C 
60  6 
687  C 
680 
68? 

690 

691 

692  C 

693 
696 

695 

696 

697 

698 

699 


UR  I TC  (3.10  ?  9  )  I Y I (I  ,‘i )  .  f '  •(  I  A  ) 

FORMAT  (  T  .15  ,  I  6  , 6X  .  1.10 . 0  > 

CONTINUE 
GO  TO  1080 
RETURN 
END 

•  •  ■  F'RE  RECONCILIATION  SUBROUTINE  <  * 

SUBROUTINE  PRECON 

COMMON  /ONE/  J ,  D (15 )  ,  R  ( 15 )  .  I Y  :  J  5  )  ,  K2 , 1 YB  U.5 )  15  )  . 

IMF (15) , JA.RC(20,20) ,WT1<15) ,WT< 15- ,F( 15) . NN (15,6 ) , JCOUt'  T . 
2A ( 15  > , B ( 15) , RA 

DO  100  I  1,6 

NN( JA, I )  NN ( JCOUNT . I > 

CONTINUE 
DO  735  IB  l,K2 
RCC JA. IB)- 0 
RC(  JA,IB)--F(  IB) 

CONTINUE 

RETURN 

END 

***  COMPARATIVE  FORECAST  SUBROUTINE  ‘ 

SUBROUTINE  COMP 

COMMON  /ONE/  J  ,  D  <  1 5 )  .RO.5)  .  IY- 15) ,  1(9,1  YB  15)  ,  P  :  15), 

IUF (15) , JA,RC( 20,20 ) ,WT1( 15) ,WT<15) ,F(15) , NN- 15  . 

2 JCOUNT , A  < 15 ) , B ( 15  > , RA 

COMMON  /TWO/  I COUNT, F  A ( 1 5 , 2 >,SUMB, R B ( 1 5 ) , I Y E , A A , F W < 1 5 ) , S C ( 

X  Y  0 
SXY  0 
SIX  0 
SX=0 
SY  ;0 
K5~  J  1 

D 1  FLOAT  ( I Y  (  2)  -  IYCD) 


I Y  ( 1  >  ) 


700 

DO  1300  1 E  • '  1 . J 

701 

DT-FLOAT ( IE ) 

702 

D YX” ALOG ( DT ) 

703 

SIX  SIX  +  DYX--2 

706 

RY--ALOG  ( R ( IE) ) 

705 

XY  -DYX  *  RY 

706 

SXY" SXY  ♦  XY 

7  07 

sx-sx  t  DYX 

708 

SY “SY  *  RY 

709 

1300 

CONTINUE 

710 

DNUM  (J  *  SXY)  SX  *  SY 

711 

DENOM  -  (  J  ♦:  SIX)  CX*»? 

712 

BV  DNUM/DENOM 

713 

DO  1305  IB -1,K2 

716 

SSI  IB)  0 

715 

E2A  FLOAT ( I YB ( IB  )  IY<J)) 

716 

SS ( IB  ) “EXP (  ALOG ( F< (  J )  )  t  (BV 

717 

1305 

CONTINUE 

718 

DO  1320  I A  1.1(2 

71? 

DO  1313  IB  1 , K 5 

720 

WTl(IB)  0 

JO  < 

WT(IB)  =0 

o  -  > 

D (  IB)  R <  I B  *  1;  ROB) 

72  3 

1313 

CONTINUE 

C|i(*ii  -  r, 

a  i  oo  •;  i  2  a  ;• ; '  ♦  b  ) 


f B-l 1 ) 


730  1315 

731 
7  7 
733 

73*i  1317 


737  1320 

738 

739 

740 

741 

742  1200 


746 

747  1204 
743  1205 

749 

750 

751  1207 


DEAR  0 

51 A  FLOAT  ( ITT. I.  A)  Ty  ■;  ! ;  ;  .  |):i. 

DO  1315  IB  -  1.115 

WT1 ( IB)~( 1 ./FLOAT  (IYBCIA)  IYUB  i  .EX))  •  100 

GUM  1* 5 U Ml  *  MTKIB) 

CONTINUE 

DO  1317  IB  1 , K5 

UT  ( IB)  U T  i  ( 12 ) .Tit It'll 

OSAR  (WT(  J B  >  D  ( I B  )  )  DEAR 

con  7  inch: 

pw:ta>  o 

PW(IA)--=(R(  J>  Gift  *  DEAR)  s  p'JA) 

CONTINUE 

WRITE  (3,1200)  (NN  ( J  COUNT  ,  I )  ,  I--'  1 .  .)  .  ;  PA  51  COUNT  ,  J  •  ,  I  1,2; 
1(NN( JCOUNT,. I  >,11,4) 

WRITE  (5,1200)  (NN< JCOUNT, I ) , I  1 , 4) , ( PA ( I COUNT , I > , I  -1,2), 
1 (NN( JCOUNT, I) , I : 1 , 4) 

FORMAT < 5X , "COMPARATIVE  FORECASTS  FOR" , IX .  1A3 , /,' 

15X, “HISTORICAL  DATA”, / / 5 X." Y E A R " , 3 X , 2 A 6 . 4 X . 4 A 3 ) 

DO  1205  I A  - 1 , J 

WRITE  (3,1204)  I Y ( IA) , A ( IA) , B (IA > 

WRITE  (5,1204)  IY ( IA ) , A ( IA) , B ( IA) 

FORMA T  (  5X  .  1 4 , 3X  .  F 1 0 . 0 , 4X .  I"  1 0 ..  0  ) 

CONTINUE 

WRITE  (3.1207)  < PA < JCOUNT. I ) , 1=1,2) . <NN( JCOUNT, I ) , I  1,4) 
WRITE  (5,1207)  (  PA  ( .[COUNT ,  I )  ,  I  :  1 . 2  )  .  ( NN  (  JCOUNT  ,  I )  ,  I  -  1 , 4  ) 
FORMAT ( /5X . "FORECAST " / . 1 2X , 2AA , 2X . 4 A3 , /T32 . 

1 "BASIC" 

16X, "AVERAGE", 7X, "RATIO" ,7X, "SHIFT", /5X, "YEAR" , 

2T32 , "RATIO" , 7X , "ANNUAL" , 2X , "DIFFERENCE" , 7X , “SHARE" ) 

DO  1209  IB=1,K2 
XI2--FL0AT  (  X  Y  B  ( IB)  I  YE) 

TEMPi=R(  J)?:F‘(  IB) 

TEMP  2 =  ( X 1 2  *  A  A  >  1 1 
T  E  M  P  3  K  T  E  M  P  2  *  R  ( J ) 

T  E  M  P  4  =  T  E  M  P  3  s  p  ( I B ) 

WRITE  (3,1208)  IYB(IB) ,P(IB), TEMPI, 

1 TEMP4 ,PW ( IB ) ,SS ( IB ) 

WRITE  (5,1208)  IYB< IB ) , P< IB > , TEMPI , 

1 PEMP4 , PW ( IB ) , SS ( I B ) 

FORMAT (5X, I4,3X,F10.0, 4 X , F 1 0 . 0 , 3 X , F 10.0,2 X , F 1 0 . 0 . 

1 2X , F 10.0) 

CONTINUE 

RETURN 

END 


x*x  WRITE  DATA  TO  FILE  SUBROUTINE  *>.* 

SUBROUTINE  FI LEIN 

COMMON  /ONE/  J,D(15),R(15>, IY ( 15) , K2 . 1 YB ' 15) , P( 15) , 
1WF ( 15 ) , JA , RC ( 20 , 20 ) , WT1 ( 15) ,WT(15) ,F(15) ,NN(15,4)  . 
2JC0UNT.A(15).B(15),RA 


WRITE (5, 900) 

FORMAT ( IX. "IWR  RATIO  FORECAST  PROGRAM.  WRITTEN  FOR  THE",/ 
1 "HARRIS  120  SYSTEM  BY  MARK  DUNNING  AND  KEVIN  ALEXANDER,",/ 
2"VERSI0N  1.1  JANUARY  1984",//) 

WRITE (5. 935) 

FORMAT (//.5X, "INPUT  VALUES  ARE  AS  FOLLOWS:",// 

IT 15 . "YEAR" .5X, "PARENT  AREA" , 5X, "SMALL  AREA" > 

DO  955  I A- 1 . J 

WRITE'S, 940)  IY ( IA) ,A(IA),B(IA) 

FORMAT  (T15, 14. 6X,  F 1 0 0 . 6  X .  F 1 0 . 0 ) 

CONTINUE 

IJOTTr/c,  on'" 


(B-12) 


END 

DATE 

FILMED 


4.J& 


4  t 


;  v 


I 


